vr2-5-06.wrl

---

[ VRML source code ]

#VRML V2.0 utf8
#vr2-5-06.wrl
#sharp pencil
Group {
  children [
    Shape {
      appearance DEF PlasticColor Appearance {
        material DEF Transpa Material {
          diffuseColor 0 0 0
          emissiveColor 1 1 1
          transparency 1.0
        }
      }
      geometry Cylinder {
        radius 1 
        height 10 
      }
    },
    DEF Timer TimeSensor {
      cycleInterval 5
      loop TRUE
    },
    DEF TransValue ScalarInterpolator {
      key [ 0, 0.5, 1 ]
      keyValue [ 1.0, 0.5, 0.0 ]
    }
  ]
}
Transform {
  translation 0 -1 0
  children Shape {
    appearance DEF DarkGreen Appearance {
      material Material { diffuseColor 0 0.5 0 }
    }
    geometry Cylinder {
      radius 0.7 
      height 12 
    }
  }
}
Transform {
  translation 0 -6 0
  children Shape {
    appearance USE DarkGreen
    geometry Cylinder {
      radius 1 
      height 0.5 
    }
  }
}
Transform {
  translation 0 -7 0
  children Shape {
    appearance USE PlasticColor
    geometry Cylinder {
      radius 1 
      height 1.55 
    }
  }
}
#white rubber
Transform {
  translation 0 -7 0
  children Shape {
    appearance Appearance {
      material Material { diffuseColor 1 1 1 }
    }
    geometry Cylinder {
      radius 0.65 
      height 1.2 
    }
  }
}
#tipper
Transform {
  translation 0 6.5 0
  children Shape {
    appearance USE PlasticColor
    geometry Cone {
      height 3
      bottomRadius 1
    }
  }
}
#core
Transform {
  translation 0 6.8 0
  children Shape {
    appearance Appearance {
      material Material { diffuseColor 1 1 0.5 }
    }
    geometry Cylinder {
      radius 0.2
      height 3.5
    }
  }
}
#holder rubber
Transform {
  translation 0 3 0
  children Shape {
    appearance Appearance {
      material Material { diffuseColor 0 0.9 0 }
    }
    geometry Cylinder {
      radius 1.2
      height 3
    }
  }
}
#hook
Transform {
  translation 0 -6 1.15
  children Shape {
    appearance USE DarkGreen
    geometry Box { size 1 0.5 0.5 }
  }
}
Transform {
  translation 0 -4 1.3
  children Shape {
    appearance USE DarkGreen
    geometry Box { size 1 3.5 0.2 }
  }
}
Transform {
  translation 0 -3 1.2
  children Shape {
    appearance USE DarkGreen
    geometry Sphere { radius 0.2 }
  }
}
ROUTE Timer.fraction_changed   TO TransValue.set_fraction
ROUTE TransValue.value_changed TO Transpa.set_transparency